home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #12 / Amiga Plus CD - 2002 - No. 12.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / PlasticWrap.rx < prev    next >
Encoding:
Text File  |  2001-10-23  |  936 b   |  68 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 4
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     type=type+2
  12.  
  13.     pp_ClosestColor 0 0 0
  14.     color=result
  15.     pp_SetApen color
  16.     pp_ClosestColor 255 255 255
  17.     color=result
  18.     pp_SetBpen color
  19.  
  20.     pp_ComposeReqOff
  21.   pp_Compose 0 100 0
  22.     pp_AvoidRefresh
  23.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  24.     pp_Progresstext 'PlasticWrap'
  25.     tot=8
  26.  
  27.     pp_Progress 1 tot    
  28.     pp_PicttoSpare
  29.   pp_SpareOnOff
  30.     pp_EffectOn
  31.  
  32.     pp_Progress 2 tot
  33.     pp_Grey
  34.     pp_BoxF x1 y1 x2 y2
  35.     
  36.     pp_Progress 3 tot
  37.   pp_LineArt 3
  38.     pp_BoxF x1 y1 x2 y2
  39.  
  40.     pp_Progress 4 tot
  41.   pp_GaussianBlur type*type
  42.     pp_BoxF x1 y1 x2 y2
  43.  
  44.     pp_Progress 5 tot
  45.   pp_LineArt 3
  46.     pp_BoxF x1 y1 x2 y2
  47.  
  48.     pp_Progress 6 tot
  49.   pp_SpareToSten
  50.   pp_SpareOnOff
  51.  
  52.     pp_Progress 7 tot
  53.   pp_MaskOn
  54.   pp_Compose 0 50 0
  55.   pp_Spare
  56.     pp_BoxF x1 y1 x2 y2
  57.  
  58.     pp_Progress 8 tot
  59.   pp_MaskOff
  60.     pp_EffectOff
  61.     pp_ComposeReqOn
  62.     pp_Compose 0 100 0
  63.     pp_PermitRefresh
  64.     pp_ProgressClr
  65.  
  66. EXIT
  67.          
  68.